(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3036,        115]
NotebookOptionsPosition[      2266,         82]
NotebookOutlinePosition[      2748,        102]
CellTagsIndexPosition[      2705,         99]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Ray Tracing", "Chapter"],

Cell[CellGroupData[{

Cell["\:8499\:7279\:5361\:6d1b\:79ef\:5206", "Subchapter"],

Cell["\:8ba1\:7b97\:5b9a\:79ef\:5206x^2\:9700\:8981\:77e5\:9053\:5176\:539f\
\:51fd\:6570\:4f46\:662f\:5bf9\:4e8e\:590d\:6742\:79ef\:5206\:4e0d\:80fd\:6c42\
\:539f\:51fd\:6570\:65f6\:5c31\:9700\:8981\:8499\:5854\:5361\:6d1b\:65b9\:6cd5\
\:ff0c\:4e0b\:9762\:662f\:725b\:987f\:83b1\:5e03\:5c3c\:5179\:65b9\:6cd5", \
"Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "1"], 
  RowBox[{
   SuperscriptBox["x", "2"], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 FractionBox["1", "3"]], "Output"]
}, Open  ]],

Cell["\:4e0b\:9762\:662f\:8499\:7279\:5361\:6d1b\:65b9\:6cd5", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "=", "0"}], ",", 
     RowBox[{"b", "=", "1"}], ",", 
     RowBox[{"n", "=", "1000"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    FractionBox["1", "n"], "*", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{"a", ",", "b"}], "}"}], "]"}], "2"], "*", 
      RowBox[{"(", 
       RowBox[{"b", "-", "a"}], ")"}]}]}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData["0.3517750667191336`"], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1600, 826},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
TaggingRules->{"$testsRun" -> False},
TrackCellChangeTimes->False,
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 30, 0, 80, "Chapter"],
Cell[CellGroupData[{
Cell[635, 26, 58, 0, 76, "Subchapter"],
Cell[696, 28, 321, 4, 38, "Text"],
Cell[CellGroupData[{
Cell[1042, 36, 249, 7, 77, "Input"],
Cell[1294, 45, 48, 1, 53, "Output"]
}, Open  ]],
Cell[1357, 49, 70, 0, 38, "Text"],
Cell[CellGroupData[{
Cell[1452, 53, 725, 22, 205, "Input"],
Cell[2180, 77, 46, 0, 37, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

